## tibble [17 x 4] (S3: tbl_df/tbl/data.frame)
## $ navn : num [1:17] 0 1 1 1 2 2 2 3 3 3 ...
## $ Na [mg/l]: num [1:17] 82 77 77 61 80 80 63 85 85 66 ...
## $ Cl [mg/l]: num [1:17] 131 117 118 97 120 120 100 127 125 105 ...
## $ ...4 : chr [1:17] "Feed" "Feed" "Retentate" "Permeate" ...
## tibble [17 x 4] (S3: tbl_df/tbl/data.frame)
## $ navn : num [1:17] 0 1 1 1 2 2 2 3 3 3 ...
## $ Ca [mg/l]: num [1:17] 119 118 115 45 132 133 49 150 150 54 ...
## $ Cl [mg/l]: num [1:17] 216 223 220 106 246 248 109 277 265 121 ...
## $ ...4 : chr [1:17] "Feed" "Feed" "Retentate" "Permeate" ...
## tibble [17 x 4] (S3: tbl_df/tbl/data.frame)
## $ navn : num [1:17] 0 1 1 1 2 2 2 3 3 3 ...
## $ SiO2 [mg/l]: num [1:17] 64.1 60.7 62 52.8 60.3 62.7 55.5 63.6 63.9 54.7 ...
## $ Na [mg/l] : num [1:17] 47.6 48.5 48.3 21.1 53 52.7 24.4 59.5 58.9 27 ...
## $ ...4 : chr [1:17] "Feed" "Feed" "Retentate" "Permeate" ...
## [1] 23.19
## [1] 23.77
## [1] 24.13
## [1] 24.29
## [1] 24.42
#data fra MgSO4 forsøg ikke ICR.
Mg_IC_data <- read_excel("data/ICR/IC_data_ICR_udvalgtdata_igen.xlsx",5)
old_names_IC=colnames(Mg_IC_data) #Vi finder de latterlige navne kolonnerne i dataen har
new_names_IC=c("time","Stream","Dilution","Mg_1_mg/L","Mg_2_mg/L") #Vi finder på nogle lidt bedre nogle
Mg_IC_data = Mg_IC_data %>% rename_at(vars(old_names_IC),~new_names_IC) #Vi ændrer navnene til de nye
Mg_IC_data <- as.data.frame(Mg_IC_data)
#noget med gennemsnit.
Mg_IC_data <-Mg_IC_data%>%mutate(avg_mgL=(rowMeans(Mg_IC_data[,c("Mg_1_mg/L","Mg_2_mg/L")],na.rm=TRUE)))%>%
mutate(std_mgL=(rowSds(as.matrix(Mg_IC_data[,c("Mg_1_mg/L","Mg_2_mg/L")],na.rm=TRUE))))
SO4_IC_data <- read_excel("data/ICR/IC_data_ICR_udvalgtdata_igen.xlsx",2)
old_names_IC=colnames(SO4_IC_data) #Vi finder de latterlige navne kolonnerne i dataen har
new_names_IC=c("time","Stream","Dilution","SO4_1_mg/L","SO4_2_mg/L") #Vi finder på nogle lidt bedre nogle
SO4_IC_data = SO4_IC_data %>% rename_at(vars(old_names_IC),~new_names_IC) #Vi ændrer navnene til de nye
SO4_IC_data <- as.data.frame(SO4_IC_data)
#noget med gennemsnit.
SO4_IC_data <-SO4_IC_data%>%mutate(avg_mgL=(rowMeans(SO4_IC_data[,c("SO4_1_mg/L","SO4_2_mg/L")],na.rm=TRUE)))%>%
mutate(std_mgL=(rowSds(as.matrix(SO4_IC_data[,c("SO4_1_mg/L","SO4_2_mg/L")],na.rm=TRUE))))%>%mutate(Std_p=((std_mgL/avg_mgL)*100))
SO4_IC_data <- SO4_IC_data[-c(1:36),]
SO4_IC_data[is.na(SO4_IC_data)]=0
SO4_IC_data$Stream[1:3] = c("Feed","Feed","Feed")
SO4_IC_data$Stream[4:6] = "Permeate"